home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / TOOLPAS2 / ASCII.PAS < prev    next >
Pascal/Delphi Source File  |  1992-04-26  |  338b  |  23 lines
  1.  
  2. var
  3.    i:  integer;
  4.    j:  integer;
  5.  
  6. begin
  7.    j := 1;
  8.    for i := 0 to 255 do
  9.    if not (i in [10,13,7,8,9,26{,32..127}]) then
  10.    begin
  11.       write(i:3,'=',chr(i));
  12.       if (j mod 13) = 0 then
  13.       begin
  14.          writeln;
  15.          j := 0;
  16.       end
  17.       else
  18.          write(' ');
  19.       j := j + 1;
  20.    end;
  21.  
  22. end.
  23.